home *** CD-ROM | disk | FTP | other *** search
/ Clinical Endocrinology / Clinical Endocrinology.iso / pc / 00000000 / notes.dir / 00003_Script_3 < prev    next >
Text File  |  1995-11-09  |  516b  |  19 lines
  1. on mouseUp
  2.   
  3.   -- Define Window boundaries
  4.   set theTop = the stageTop
  5.   set theLeft = the stageLeft + 316
  6.   set theBottom = theTop + 368
  7.   set theRight = theLeft + 256
  8.   
  9.   set the rect of window "Pages.dir" = ¼
  10. rect (theLeft, theTop, theRight, theBottom )
  11.   set the title of window "Pages.dir" to "Subject Text"
  12.   set the windowType of window "Pages.dir" to 4
  13.   open window "Pages.dir"
  14.   --set the modal of window "Pages.dir" to TRUE
  15.   tell window "Pages.dir"
  16.     showPagesText
  17.   end tell
  18.   
  19. end